Chip 2004 December/2004-12 CHIP.iso/Internet/The Bat! Professional 3.01/thebat_professional.msi/Data1.cab/thebat.exe/0/RCDATA/TFOLDERMAINTENANCER/TFOLDERMAINTENANCER.txt

Text File | 2004-10-12 | 7.8 KB | 348 lines

object FolderMaintenancer: TFolderMaintenancer
  Left = 270
  Top = 108
  HelpContext = 57000
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Folder Maintenance Centre'
  ClientHeight = 446
  ClientWidth = 592
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Book: TNotebook
    Left = 16
    Top = 8
    Width = 567
    Height = 393
    PageIndex = 1
    TabOrder = 0
    object TPage
      Left = 0
      Top = 0
      Caption = 'Setup'
      object Label1: TLabel
        Left = 0
        Top = 8
        Width = 125
        Height = 13
        Caption = 'Choose &Folders to process'
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 295
        Width = 561
        Height = 97
        Caption = 'Actions to perform'
        TabOrder = 3
        object cbCompress: TCheckBox
          Left = 280
          Top = 48
          Width = 273
          Height = 17
          Caption = '&Compress (remove deleted messages)'
          TabOrder = 3
          OnClick = cbCheckIntegrityClick
        end
        object cbPurge: TCheckBox
          Left = 280
          Top = 24
          Width = 273
          Height = 17
          Caption = '&Purge old/exceeding messages'
          TabOrder = 1
          OnClick = cbCheckIntegrityClick
        end
        object cbCheckIntegrity: TCheckBox
          Left = 16
          Top = 24
          Width = 257
          Height = 17
          Caption = 'Check &Integrity/Repair'
          TabOrder = 0
          OnClick = cbCheckIntegrityClick
        end
        object cbKillDupes: TCheckBox
          Left = 16
          Top = 48
          Width = 257
          Height = 17
          Caption = 'Remove &Duplicates'
          TabOrder = 2
          OnClick = cbCheckIntegrityClick
        end
        object cbFindOrphans: TCheckBox
          Left = 16
          Top = 72
          Width = 537
          Height = 17
          Caption = 'Find "&Orphaned" files in the attachment directories'
          TabOrder = 4
          OnClick = cbFindOrphansClick
        end
      end
      object bSelectAll: TButton
        Tag = 1
        Left = 256
        Top = 266
        Width = 145
        Height = 25
        Caption = 'Select &All'
        TabOrder = 1
        OnClick = bSelectAllClick
      end
      object bUnSelectAll: TButton
        Left = 416
        Top = 266
        Width = 137
        Height = 25
        Caption = '&Unselect All'
        TabOrder = 2
        OnClick = bSelectAllClick
      end
      object Panel1: TPanel
        Left = 0
        Top = 24
        Width = 561
        Height = 237
        BevelOuter = bvLowered
        Caption = '~'
        TabOrder = 0
        object lFolders: TMLVGrid
          Left = 1
          Top = 18
          Width = 559
          Height = 218
          Align = alClient
          BorderStyle = bsNone
          DefaultRowHeight = 16
          DefaultDrawing = False
          FixedCols = 0
          RowCount = 1
          FixedRows = 0
          Options = [goThumbTracking]
          TabOrder = 0
          OnKeyDown = lFoldersKeyDown
          OnMouseDown = lFoldersMouseDown
          AltDrag = True
          AutoColResize = True
          AutoSearch = False
          MultiSelect = False
          Header = hFolders
          ImmediateSelect = False
          OnDrawItemImage = lFoldersDrawItemImage
        end
        object hFolders: THeaderControl
          Left = 1
          Top = 1
          Width = 559
          Height = 17
          Sections = <>
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Process'
      object lCurProcess: TLabel
        Left = 0
        Top = 4
        Width = 564
        Height = 59
        AutoSize = False
      end
      object lOverall: TLabel
        Left = 0
        Top = 96
        Width = 79
        Height = 13
        Caption = 'Overall progress:'
      end
      object lReport: TLabel
        Left = 0
        Top = 144
        Width = 32
        Height = 13
        Caption = '&Report'
        FocusControl = eLog
      end
      object pbCurProgress: TProgressBar
        Left = 0
        Top = 66
        Width = 561
        Height = 23
        TabOrder = 0
      end
      object pbOverall: TProgressBar
        Left = 0
        Top = 112
        Width = 561
        Height = 25
        TabOrder = 1
      end
      object eLog: TMemo
        Left = 0
        Top = 160
        Width = 561
        Height = 161
        ScrollBars = ssBoth
        TabOrder = 2
      end
      object gbTotals: TGroupBox
        Left = 0
        Top = 319
        Width = 561
        Height = 73
        Caption = 'Total results'
        TabOrder = 3
        object lbDupes: TLabel
          Left = 109
          Top = 14
          Width = 83
          Height = 13
          Alignment = taRightJustify
          Caption = 'Duplicates found:'
        end
        object lbPurged: TLabel
          Left = 105
          Top = 32
          Width = 87
          Height = 13
          Alignment = taRightJustify
          Caption = 'Messages purged:'
        end
        object lbSaved: TLabel
          Left = 104
          Top = 50
          Width = 88
          Height = 13
          Alignment = taRightJustify
          Caption = 'Disk space saved:'
        end
        object lDupes: TLabel
          Left = 200
          Top = 14
          Width = 6
          Height = 13
          Caption = '0'
        end
        object lPurged: TLabel
          Left = 200
          Top = 32
          Width = 6
          Height = 13
          Caption = '0'
        end
        object lSaved: TLabel
          Left = 200
          Top = 50
          Width = 6
          Height = 13
          Caption = '0'
        end
        object lFoldersChecked: TLabel
          Left = 472
          Top = 14
          Width = 6
          Height = 13
          Caption = '0'
        end
        object lDamaged: TLabel
          Left = 472
          Top = 32
          Width = 6
          Height = 13
          Caption = '0'
          Visible = False
        end
        object lRecovered: TLabel
          Left = 472
          Top = 50
          Width = 6
          Height = 13
          Caption = '0'
          Visible = False
        end
        object lbRecovered: TLabel
          Left = 362
          Top = 50
          Width = 102
          Height = 13
          Alignment = taRightJustify
          Caption = 'Messages recovered:'
          Visible = False
        end
        object lbDamaged: TLabel
          Left = 351
          Top = 32
          Width = 113
          Height = 13
          Alignment = taRightJustify
          Caption = 'Damaged folders found:'
          Visible = False
        end
        object lbFoldersChecked: TLabel
          Left = 382
          Top = 14
          Width = 82
          Height = 13
          Alignment = taRightJustify
          Caption = 'Folders checked:'
        end
      end
    end
  end
  object bStart: TButton
    Left = 240
    Top = 408
    Width = 97
    Height = 25
    Caption = '&Start'
    Default = True
    Enabled = False
    TabOrder = 1
    OnClick = bStartClick
  end
  object bStop: TButton
    Left = 352
    Top = 408
    Width = 89
    Height = 25
    Caption = '&Stop'
    Enabled = False
    TabOrder = 2
    OnClick = bStopClick
  end
  object bClose: TButton
    Left = 456
    Top = 408
    Width = 91
    Height = 25
    Cancel = True
    Caption = 'Close'
    ModalResult = 2
    TabOrder = 3
  end
  object tmClose: TTimer
    Enabled = False
    OnTimer = tmCloseTimer
    Left = 48
    Top = 392
  end
end